dygraph with Synchronization
Only 3 lines of code!!!
dygraph(Hourly_data[,"Temp"], group = "a")
dygraph(Hourly_data[,"W_A"], group = "a")
dygraph(Hourly_data[,1:5], group = "a") %>% dyRangeSelector()
More dygraphs examples for TimeSeries charts:
R package,
  
JS gallery